Languguage OS 2/Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO/a_utils/perl/prlbkxmp.lha/ch5/shuffle.eg

Text File | 1991-01-08 | 152b | 9 lines

@numbers = 1..30;
{
    local(@temp);
    push(@temp, splice(@numbers, rand(@numbers), 1))
    while @numbers;
    @numbers = @temp;
}
print "@numbers\n";